home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / surfsrc3.zip / SWAPS.INC < prev    next >
Text File  |  1991-09-14  |  530b  |  27 lines
  1. procedure SWAPINT (var I1, I2: integer);
  2. { Swap the two variables I1 and I2 }
  3. var Temp: integer;
  4. begin
  5.   Temp := I1;
  6.   I1 := I2;
  7.   I2 := Temp;
  8. end; { procedure SWAPINT }
  9.  
  10. procedure SWAPWORD (var I1, I2: word);
  11. { Swap the two variables I1 and I2 }
  12. var Temp: word;
  13. begin
  14.   Temp := I1;
  15.   I1 := I2;
  16.   I2 := Temp;
  17. end; { procedure SWAPWORD }
  18.  
  19. procedure SWAPREAL (var R1, R2: real);
  20. { Swap the two variables R1 and R2 }
  21. var Temp: real;
  22. begin
  23.   Temp := R1;
  24.   R1 := R2;
  25.   R2 := Temp;
  26. end; { procedure SWAPREAL }
  27.